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-- file: OpNames.mesa 

— edited by Sandman, July 17, 1977 8:49 PM 

DIRECTORY 

AUoDefs: FROM "altodefs". 
InlineDefs: FROM "in! inedefs" , 
ListerDefs: FROM "1 isterdef s" , 
SegmentDefs: FROM "segmentdef s" , 
StreamDefs: FROM "streamdef s" . 
StringDefs: FROM "stringdef s" ; 

DEFINITIONS FROM AUoDefs; 

OpNames: PROGRAM 

IMPORTS SegmentDefs, StreamDefs, StringDefs EXPORTS ListerDefs 
BEGIN 

— mnemonic: ARRAY BYTE OF STRING ♦• [ 

"NOOP", "LABEL", "LFC 

"LGO". "LGl", "LG2" 

"LGB", "LGS". "SGO" 

"LLO", "LLl". "LL2" 

"LLB". "LLS", "SLO" 

"SL6". "SL7". "SLB" 

"LI4", "LIS". "LI6" 

"LGDB", "LGDS". "SGDB" 

"RO", "Rl", "R2". "R3 

"W2", "WB", "RF", "WF", "RDB", "RDO", "WDB", "WOO", 

"RSTR", "WSTR", "RXLO", "RXLl". "RXL2", "RXL3", "WXLO", "RIGO". 

"RIGl", "RIG2", "RIG3", "WIGO". "RILO", "RILl", "RIL2", "RIL3", 

"WILO", "WSO", "WSB", "WSF", "WSDB". "WSDS", "NOOP", "NOOP", 

"JIE". "J2E", "J3E", "J4E", "JIO", "J20", "J30", "J40". 

"JBE", "JBO", "OWE", "JWO", "NJBE", "NJBO", "JEQIE", "JEQ2E", 

"JEQ3E", "JEQ4E", "JEQIO", "JEQ20", "JE030", "JEQ40", "JEQBE", "JEQBO", 

"JNEIE", "JNE2E". "JNE3E". "JNE4E", "JNEIO". "JNE20", "JNE30" . "JNE40", 

"JNEBE", "JNEBO", "JLBE", "JLBO", "JGEBE", "OGEBO", "JGBE", "JGBO", 

"JLEBE". "JLEBO". "JULBE", "JULBO". "JUGEBE", "JUGEBO", "JUGBE". "JUGBO". 

"JULEBE", "JULEBO", "JZEQBE", "JZEQBO". "JZNEBE". "JZNEBO", "JDEQBE", "JDEQBO" 

"JDNEBE". "JONEBO", "JIB". "JIW". "NOOP", "NOOP", "NOOP". "NOOP". 

"ADD", "SUB", "MUL". "DBL", "DIV" , "LDIV". "NEG", "INC". 

"OR", "XOR". "SHIFT", "UCOMP", "NOOP". "NOOP", "NOOP". 



". "NOOP", "NOOP". • 


'NOOP", 


"NOOP", "NOOP". 


"LG3", 


"LG4". 


"LGS" 


"LG6" 


"LG7", 


"SGI". 


"SG2". 


"SG3" 


"SGB" 


"SGS", 


"LL3", 


"LL4". 


"LLS" 


"LL6" 


"LL7", 


"SLl". 


"SL2". 


"SL3" 


"SL4" 


"SLS", 


"SLS", 


"LIO". 


"LIl" 


"LI2" 


"LI3". 


"LINl", 


"LIB" 


. "LIW 


\ "LINB". "NOOP". 


". "SGDS", "LLDB". ' 


'LLDS". 


"SLDB". "SLDS". 


". "R4' 


. "RB" 


. "WO" 


"Wl". 





"AND". 
"PUSH" 
"GFCO" 
"GFC8" 
"GFCB" 
"LFC8" 
"LFC16 
"ADDL" 
"STOP" 
"DST". 



"POP". "EXCH", "PUSHX". "DUP", "NOOP". "NOOP". "NOOP", 
"GFCl". "GFC2", "GFC3", "GFC4", "GFC5", "GFC6". "GFC7", 
"GFC9", "GFCIO". "GFCll", "GFC12", "GFC13", "GFC14", "GFC15". 
"LFCl", "LFC2". "LFC3", "LFC4". "LFC5". "LFC6". "LFC7". 
"LFC9", "LFCIO", "LFCll". "LFC12", "LFC13", "LFC14". "LFC15". 

, "LFCB", SFC", "RET", "NOOP", "PORTO". "PORTI", "KFCB", 
"ADDG", "BLT". "ALLOC", "FREE", "IWDC". "DWDC", "NOOP", 
"CATCH", "CONVERT". "BLOCK", "BITBLT". "STARTIO", "NOOP", "NOOP". 

•LST", "LSTF". "NOOP". "WR", "RR", "BRK" . "NOOP"]; 



mnemonic: DESCRIPTOR FOR ARRAY OF STRING ♦- DESCRIPTOR[NIL, 0] ; 
numberof instructions: CARDINAL = 2S6; 

instname: PUBLIC PROCEDURE [op: BYTE] RETURNS [STRING] = 
BEGIN 

IF BASE[mnemonic] = NIL THEN SetupArray[] ; 
RETURN [mnemonic[op]] 
END; 

Unknownlnstruct ion: PUBLIC SIGNAL[name: STRING] = CODE; 

instcode: PUBLIC PROCEDURE [name: STRING] RETURNS [i: BYTE] = 
BEGIN 

IF BASC[mnemonic] = NIL THEN SetupArray[] ; 
FOR i IN BYTE DO 

IF StringDefs. Equ ivalentString[name,mnemon ic[i]] THEN RETURN; 
ENDLOOP; 
SIGNAL Unknown Ins truct ion [name] ; 
RETURN[0]: 
END; 



BadFormat: ERROR = CODE; 

Semicolon: SIGNAl = CODE; 

binaryfUe: STRING *- "OpNames . b i nary" ; 

arraysegmen t : SegmentDefs . F i 1 eSegmenlHandle «- NIL; 
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gennamefile: PROCEDURE » 

BEGIN OPEN SegmentOefs, InlineDefs, StreamDefs, StringDefs; 
a: ARRAY [0. . numberof instructions) OF CARDINAL; 
i: CARDINAL; 

pos: CARDINAL *• numberof instructions; 
s: STRING <- [40]; 
1: CARDINAL; 
in, out: StreamHandle; 
end: Streamlndex; 
getid: PROCEDURE « 
BEGIN 

leading: BOOLEAN ♦• TRUE; 
c: CHARACTER; 
s. length *- 0; 
DO 

IF in.endof[in] THEN ERROR BadFormat; 
SELECT c*-in.get[in] FROM 

IN ['A. . 'Z], IN [^a.-'z] => 

BEGIN AppendChar[s.c]; leading ♦■ FALSE END; 
IH ['0. . '9] => 

IF ^leading THEN AppendChar[s ,c] ; 
• ; => SIGNAL Semicolon; 
ENDCASE => IF -leading THEN RETURN; 
ENDLOOP; 
END; 

in *- CreateByteStream[NewFile["OpNames .mesa" .Read ,Def aultVersion] .Read]; 

out ♦• CreateWordStream[NewFile[binaryf ile,Write+Append ,Def aultVersion] .Write+Append] ; 

SetIndex[out.Strea,mIndex[0,LENGTH[a]*2]]; 

UNTIL EqualString[s, "mnemonic"] DO getid[ ISemicolon=>RESUME] ENDLOOP; 

WHILE in.get[in] # '[ DO NULL ENDLOOP; 

FOR i IN[0. .numberof instructions) DO 

getid[!Semicolon=>ERROR BadFormat]; 

IF BITAND[l*-s. length, 1] # THEN AppendChar[s ,0C] ; 

a[i] ♦- pos; 

out .put[out, 1 "'; out.put[out , 1 ] ; 

pos *• pos + WriteBlock[out. s+2 ,s. length/2] + 2; 

ENDLOOP; 
in . destroy[in] ; 
end ♦- GetIndex[out] ; 
out. reset[out] ; 

[] ♦• Write81ock[out,BASE[a] .numberof instructions] ; 
SetIndex[out .end] ; 
out. destroy[out]; 
END; 

SetupArray: PUBLIC PROCEDURE = 
BEGIN OPEN SegmentDefs; 
i: BYTE; 
base: POINTER; 
IF arraysegment = NIL THEN 

BEGIN 

arraysegment ♦- 

NewFi leSegment[NewFi le[binary file, Read ,Def aultVersion] , 
DefaultBase. Defaul tPages , Read]; 

Swap I n[ arraysegment] : 

SP.proc ♦- CantSwap; 

-- AddSwapStrategy[0SP]; 

END 
ELSE SwapTn[arraysegment] ; 
base ♦- F i leSegmen tAddress[arraysegment] ; 
mnemonic ♦- DrSCRIPTOR[base, numberofins truct ions] ; 
FOR 1 IN[0. .LFNGTH[mnemonic]) DO 

mnemonic[i] ♦- mnemonic[ i ]+l.OOPHOLE[base] ; 

ENDLOOP; 
SP.proc ♦- DeleteArray; 
END; 

SP: SegmentDefs .SwapStrategy; 

DeleteArray: PUBLIC SegmentDefs . Swapp ingProcedure = 
BfGIN 

SP.proc ♦- SegmentDefs .CantSwap ; 
ir BASr[mnemon ic] = NIL THPN RETURN[rALSE] ; 
SegmentDefs .Unl ock[arraysegmen t] ; 
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SegmentDefs.SwapOut[ array segment]; 
mnemonic ^ DESCRIPTOR[NIL,0]; 
RETURN [TRUE]; 
END; 

gennamef ne[]; 

END. 



